RD-A187  CSC  FORTRAN  77  EXTTNSIONS  -  A  COHPRRISON(U)  DAVID  H  TAVLOR 
NAVAL  SHIP  RESEARCH  AND  DEVELOPHENT  CENTER  BET. . 

D  V  SOHHER  28  JUU  87  DTNSRDC-CNLD-87-879 


UNCLASSIFIED 


F/G  12/S 


CMLD-87-07  Fortran  77  Extensions  -  A  Comparison 


( 3 > 


one  fih  copy 

David  W.  Taylor  Naval  Ship  Research  and  Development  Center 


Bethesda,  MD  20084-5000 


CMLD-87-07  June  1987 


Computation,  Mathematics  &  Logistics  Dept, 


Departmental  Report 


Fortran  77  Extensions  -  a  Comparison 


David  V.  Sommer 


DTIC 

jELECTEI 

.  NOV  0  6  1987 


top 


Approved  for  Public  Release: 
Distribution  Unlimited 


87  10 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


U.  REPORT  SECURITY  CLASSIFICATION 


REPORT  DOCUMENTATION  PAGE 


lb.  RESTRICTIVE  MARKINGS 


2a.  SECURITY  CLASSIFICATION  AUTHORITY 


2b.  DECLASS  I F I  CAT  I ON/OO  WNGR  AO  ING  SCHEOULE 


4.  PERFORMING  ORGANIZATION  REPORT  NUMBERISI 

CMLD-87-07 


3.  DISTRIBUTION/AVAILABILITY  OF  REPORT 

Approved  for  Public  Release: 
Distribution  Unlimited 


S.  MONITORING  ORGANIZATION  REPORT  NUMBERISI 


6a.  NAME  OF  PERFORMING  ORGANIZATION  6b.  OFFICE  SYMBOL  7a.  NAME  OF  MONITORING  ORGANIZATION 

<1*  applicable) 

DTNSRDC 


ICVJcl 


6c.  ADDRESS  (City.Stata.and  ZIP  Coda) 


7b.  ADDRESS  (City,  State,  and  ZIP  Code) 


8a.  NAME  OF  FUNDING/SPONSORING 
ORGANIZATION 


8b.  OFFICE  SYMBOL  9.  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 
Of  applicable) 


8c.  ADDRESS  (City,State,and  ZIP  Coda) 


11.  TITLE  (Include  Security  Classification) 

Fortran  77  Extensions 


12.  PERSONAL  AUTHORIS) 

David  V.  Sommer 


10.  SOURCE  OF  FUNDING  NUMBERS 


PROGRAM 
ELEMENT  NO. 


PROJECT 

TASK 

NO. 

NO. 

—  A  Comparison 


WORK  UNIT 
ACCESSION  NO. 


17. _ COSATI  CODES _ I  18.  SUBJECT  TERMS  ICc 

I  GR0UP  I  SUB-GROUP  |  CDC  NOS/BE 

Compiler 


18.  SUBJECT  TERMS  (Continue  on  reverae  if  neceaaary  and  identify  by  block  number) 

CDC  NOS/BE  Cray  COS  Unisys  OS-llOO 

Compiler  DEC  VMS 


[■r«TMlelHT4VM  him  1  1  —WlTOil 


19./ ABSTRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 


This  is  a  comparison  of  the  extensions  to  the  ANSI  Fortran  77  Standard 
in  the  CDC  NOS/BE  and  NOS,  Cray  COS,  DEC  VMS,  and  Unisys  OS-llOO 
compilers.  Appendices  list  the  extensions  keyed  to  specific  pages  or 
sections  in  the  corresponding  Fortran  Reference  Manuals.  / [,. ?  r  ^  s  '• 


20.  DISTRIBUTION/AVAILABILITY  OF  ABSTRACT 
£]  UNCLASSIFIED/UNLIMITED  □  SAME  AS  RPT 

□  OTIC  USERS 

22a.  NAME  OF  RESPONSIBLE  INDIVIDUAL 

21.  ABSTRACT  SECURITY  CLASSIFICATION 


DD  FORM  1473,  84MAR 


22b.  TELEPHONE! Include  Area  Code)  22c.  OFFICE  SYMBOL 


|:M 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 

UNCLASSIFIED 


Page  i 


m 

Contents 


1  Introduction  1-1 

Comparison  of  extensions 
to  ANSI  Standard  Fortran  77  1-3 

A  Appendix  A 

CDC  Fortran  Extensions  A- 1 

B  Appendix  B 

DEC  Fortran  Extensions  B-l 

C  Appendix  C 

Unisys  Fortran  Extensions  C-l 

D  Appendix  D 

Cray  Fortran  Extensions  D-l 


£• 


Page  ii 


Abstract 

This  is  a  comparison  of  the  extensions  to  the  ANSI  Fortran  77 
Standard  in  the  CDC  NOS/BE  and  NOS,  Cray  COS,  L~w  VMS,  and  Unisys  EXEC 
compilers.  Appendices  list  the  extensions  keyed  to  specific  pages  or 
sections  in  the  corresponding  Foreran  Reference  Manuals. 


Administrative  Information 

The  work  described  in  this  report  was  performed  in  the  User 
Services  Group  (1893.1)  of  the  Software  Branch  of  the  Computation, 
Mathematics  and  Logistics  Department,  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center,  under  the  sponsorship  of  the  DTNSRDC 
Computer  Center  (189) . 


< 


» 


1 


V.v 


87/02/24 


Page  1-1 


*****  Introduction  ***** 

Programs  which  follow  the  American  National  Standards  Institute 
Fortran  77  Standard  should  run  without  change  (or  with  only  changes 
dictated  by  the  hardware,  such  as  word  size,  integer  and  floating  point 
number  ranges).  Programs  which  use  extensions  to  the  Standard  will 
probably  need  modification. 

This  annual  provides  a  list  of  the  differences  in  the  Fortran 
languages  on  the  computers  in  the  Computer  Center  at  DTNSRDC .  The 
Appendices  list  the  extensions  for  the  individual  compilers. 
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Appendix  A 

CDC  Fortran  Extensions 


The  following  are  extensions  to  ANSI  Standard  Fortran  77  in  the  CDC 
FTN5  compiler: 


Page  in 

60481300  CDC  extensions  to  Fortran  77 


1-2  .  character  set  includes  " 

1-3/E  .  compiler  directives  (C$  in  columns  1-2):  LIST,  IF,  ELSE, 

ENDIF,  COLLATE,  DO) 

.  sequenced  mode  for  source 

1-4  .  variable  names  up  to  7  characters 

1-6  .  BOOLEAN 

.  complex  constants  may  contain  symbolic  constants 
(PARAMETER) 

1-7  .  Hollerith  (nH...,  L"...",  R"...",  "...")  limited  to  10 

columns  unless  in  CALL  argument 
.  octal  (0"...") 

.  hexadecimal  (Z"...") 

.  character  constant  1  to  32767  characters 
1-9  .  array  bounds  converted  to  integer 

1-10  .  subscripts  converted  to  integer 

1- 11  .  substring  references  converted  to  integer 

2- 3  .  can  initialize  common  block  elements  in  program  of 

subprogram 

.  can  repeat  a  list  of  constants  in  DATA 

2-8  .  some  intrinsics:  AND,  OR,  XOR,  NEQV,  EQV,  COMPL 

2- 9  .  LEVEL  for  storage  of  variables 

2~10  .  PARAMETER  may  use  several  functions 

3- 6  .  .XOR. 

3- 10  .  v  -  v  -  v  »  e  (multiple  assignment) 

4~1  .  computed  GO  TO  expression  converted  to  integer 

4- 7  .  extended  DO  loops 

4- 9,10  .  PAUSE  msg  and  STOP  msg 

(where  msg  is  CHARACTER  constant  up  to  70  characters) 

5- 4  .  FORMATS  may  be  in  non-CHARACTER  array 

.  Aw  for  boolean 
.  Ow,  Ow.m 

.  Rw  (on  input:  right  justify,  NUL  fill) 

.  Zw,  Zw.m 

.  "..."  in  FORMAT  same  as 

5-9  .  prints  "I"  for  indefinite,  "R"  for  out-of-range 

.  blank  logical  input  fields  are  .FALSE. 

5-26  .  PUNCH 
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5-30  .  NAMELIST 

.  BUFFER  IN,  BUFFER  OUT,  UNIT,  LENGTH,  LENGTHX 
5-36  .  additional  OPEN  paraaeter 

5- 40  .  ENCODE,  DECODE 

6~1  .  PROGRAM  may  have  a  list  of  files 

6~6  .  function  name  can  be  same  as  a  common  block  name 

6- 7  .  alternate  RETURN  converted  to  integer 

6-9  .  type  conversion  done  for  statement  function  references 

6-13  .  unnamed  block  data  subprogram  has  name  "BLKDAT." 

7  .  more  intrinsics:  ATANH,  C0SD,  ERF,  ERFC,  LOCF,  MASK,  RANF, 

SECOND,  SHIFT,  SIND,  TAND 

.  system:  GETPARM,  RANSET,  RANGET,  DATE,  JDATE ,  TIME,  CLOCK, 
DISPLA,  REMARK,  SSWTCH,  EXIT,  CHEKPTX ,  RECOVR, 
MOVLEV,  MOVLCH 

.  I/O:  CONNEC ,  DISCON,  EOF,  IOCHEC,  OPENMS,  WRITMS,  READMS, 
CLOSMS,  STINDX 

.  debugging:  DUMP,  PDUMP,  STRACE,  LEGVAR,  SYSTEM,  SYSTEMC, 
LIMERR,  NUMERR 

.  collating:  COLSEQ,  WTSET,  CSOWN 

.  static  I/O:  17  dummy  calls  to  load  static  I/O  instead  of 
CMM 

8  .  Record  Manager  interface 
.  Sort/merge  interface 

.  Common  Memory  Manager  interface 
.  8-bit  subroutines 
.  data  base  interface 


9 


.  overlays 
.  capsules 
.  post  mortem  dump 
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DEC  Fortran  Extensions 


The  following  are  extensions  to  ANSI  Standard  Fortran  77  in  the  DEC  VMS 
Fortran  compiler: 


Topic  in 

AA-D034D-TE  DEC  extensions  to  Fortran  77 


5.2 


5.3 


5.4 


6.1 


6.2 


6.3 


6.13 


.  DATA  statements  may  appear  almost  anywhere 
.  up  to  31  characters  in  symbolic  name 
.  in-line  comments  1  in  columnl  or  7  on 

.  character  set  includes  lower  case  (same  as  upper),  $, 

",  !,  <,  >,  2,  & 

.  allows  tab  format  for  source 

.  source  statements  may  optionally  go  to  column  132 
.  D  in  column  1  for  debugging  statements 

.  REAL*4  for  REAL 
.  REAL*8  for  DOUBLE  PRECISION 
.  REAL* 16  for  quad  precision 
.  C0MPLEX*8  for  COMPLEX 
.  DOUBLE  COMPLEX  (or  COMPLEX* 16) 

.  BYTE 

.  LOGICAL*l,  *2,  *4 
.  INTEGER*4  for  INTEGER;  INTEGER*2 

.  Octal  C...'0),  hexadecimal  ('...'X),  Hollerith  (nH...) 
.  INTEGER  constants  can  be  in  octal  or  hexadecimal 
.  CHARACTER  constant  in  arithmetic  expression  considered 
Hollerith 

.  dimension  bounds,  subscripts,  character  positions 
converted  to  integer 

.  LOGICAL  considered  INTEGER  in  arithmetic  context 
.  2  operators  can  be  in  succession  if  second  is  unary 
operator  (+,  -) 

.  . XOR. 

.  INTEGER  considered  LOGICAL  in  logical  expressions 
.  character  constant  1  to  2000  characters 


8.4 

8.6 


8.8 


8.10 

8.11 

8.12 


.  variables  may  be  initialized  in  type  statements 
.  single  subscript  reference  as  linear  element  number 
allowed  only  in  EQUIVALENCE 
.  IMPLICIT  NONE 

.  character  variable  up  to  65535  characters 
.  NAMELIST 

.  PARAMETER  may  include  some  functions 

.  default  program  name  is  f i lename$MAIN  (filename 
truncated  to  26  characters) 
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8.13 

8.15 

8.16 

9.1 


9.3 


9.4 

9.6 

9.9 


10.1 

10.2 

10.3 


11.2 


12.2 


13 


D 


RECORD  statement 
STRUCTURE,  UNION,  MAP 

VOLATILE  statement  to  prevent  optimization 

statement  labels  preceded  by  &  (or  the  standard  *)  in 
CALL 

DO  WHILE 

extended  DO  range 
END  DO 

computed  GO  TO  expression  converted  to  integer 
alternate  return  converted  to  integer 

argument  list  built-in  functions  (2VAL,  2REF,  ZDESCR) 
%L0C  built-in  function 

CHARACTER  FUNCTION  name*n  allowed  (standard  is 
CHARATCER*n  FUNCTION  name) 

generic  names:  QEXT,  DCHPLX,  SIND,  COSD,  TAND,  ATAND, 
ATAN2D,  ASIND,  ACOSD 


ACCEPT 

TYPE 

indexed  files 
keyed  access  files 
ENCODE,  DECODE 
REWRITE 

I/O  unit  number  converted  to  integer 
list-directed  internal  READ/WRITE 

variable  formats 

Ow.m 

Zw.m 

Q 

$,  NUL 

can  be  used  in  input  to  override  a  format 
additional  parameters  in  OPEN,  CLOSE,  INQUIRE 
DELETE  a  record  (non-sequential  file) 

UNLOCK  a  record  (non-sequential  file) 

more  generic  functions:  IQINT,  IQNINT,  ZEXT,  DFLOAT, 

QFLOAT,  I AND,  IOR,  IEOR,  NOT, 
ISHFT,  IBITS,  IBSET,  BTEST , 
IBCLR,  ISHFTC 

system:  DATE,  IDATE,  ERRSNS,  EXIT,  SECNDS,  TIME,  RAN, 
MVB1TS 


4 


1 


VA 
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Appendix  C 

Unisys  Fortran  Extensions 


The  following  are  extensions  to  ANSI  Standard  Fortran  77  in  the  Unisys 
Fortran  compiler: 


Topic  in 

UP-8244.3  Unisys  extensions  to  Fortran  77 


2.1  .  lower  case,  <,  >,  &  are  part  of  character  set 

2.2.1  .  double  precision  complex 

.  octal  (Ooooooooooooo  -  up  to  12  octal  digits) 

.  Filedata  ('  'F  or  nH...F) 

.  Hollerith  (nH...) 

.  CHARACTER  constants  up  to  511  characters 

2.2.2  .  variable  names  may  have  lower  case,  $  (lower  case  same  as 

upper  case) 

.  subscripts  may  be  REAL  or  DOUBLE  PRECISION  (converted  to 
INTEGER) 

2.2.3  .  allows  &  for  // 

.  allows  //of  (*)  strings  in  subprograms 
.  typeless  expressions  (36-bit  strings)  -  AND,  OR,  XOR, 
BOOL,  COMPL) 

2.2.5  .  comments  may  appear  after  END 

2.2.6  .  statements  may  be  up  to  1320  significant  characters  (may 

be  more  than  20  lines) 

2.2.7  .  in-line  comments  start  with  @  (cols  7-72  only) 

3.2  .  v,  v,  v  -  e  (multiple  equates) 

4.2.2  .  statement  numbers  in  computer  GO  TO  may  be  omitted  (falls 

thru) 

4.2.3  .  assigned  GO  TO  variable  may  be  initialized  in  specifi¬ 

cation  statement 

4.3.1  .  statement  labels  in  arithmetic  IF's  are  optional  (falls 

thru) 

4.5  .DO  statement  may  end  on  a  FORMAT 

4.5.2  .  maximum  DO-loop  nesting  depth  is  25 

4.5.5  .  DO-loop  may  have  external  range 


4.7/8 

.  PAUSE  n 

and 

STOP  n 

4.7/8 

.  PAUSE  msg 

and 

STOP  msg 

n  up  to  6  digits 
(standard:  up  to  5) 
msg  up  to  124  characters 


4.9  .  END  ends  a  group  of  program  units  which  may  include 

internal  subprograms 
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5.1  .  I/O:  PUNCH,  DEFINE  FILE,  FIND,  ENCODE,  DECODE,  NAMELIST 
.  ENCODE/DECODE  like  CDC  with  additional,  optional 

parameters 

.  default  record  lengths:  read  -  80  or  132 

print  -  132 
punch  -  80 

5.2  .  default  unit  assignments:  5  -  read 

6  -  print 
1  -  punch 
0  -  reread 

.  'n  same  as  REC**n 

.  formats  may  be  in  non-character  arrays 
.  empty  format  ()  means  list-directed 

5.3.1  .  Jw  -  like  Iw,  except  rest  of  field  zero-filled 

.  Ew.dDe  -  double  precision  exponent 

.  Ow  -  octal 

.  Rw  -  like  Aw  but  right  adjusted  (NUL  filled  on 

read) 

.  H  -  allowed  on  read 

.  -wX  -  allowed  to  backspace  in  line 

.  G  -  allowed  for  INTEGER  and  LOGICAL 

.  NAMELIST  -  ' Sname  '  or  '&name  '  in  column  2  thru  'SEND' 
or  '&END' 

.  can  reread  last  sequential  record  read 
.  new  parameters  on  OPEN  and  INQUIRE 

6.1  .  initialization  may  occur  in  specification  statements 
.  DATA  statements  may  precede  IMPLICIT 

.  CHARACTER  statement  function  may  have  *  length 
.  can  EQUIVALENCE  CHARACTER  and  non-CHARACTER  data 
.  single  subscript  reference  to  multi-dimensioned  array  is 
linear  position 

.  can  mix  CHARACTER  and  non-CHARACTER  in  common  blocks 
.  labelled  common  blocks  of  same  name  don't  have  to  be  same 
size 

.  can  initialize  labelled  common  blocks  anywhere 
.  can  initialize  blank  common  and  do  it  anywhere 

6.6  .  BANK  to  specify  where  variables  are  to  be  stored 

6.7  .  VIRTUAL  statement  for  specifying  virtual  objects 

.  parentheses  around  PARAMETER  list  optional 
.  PARAMETER  may  appear  anywhere 

.  in-line  or  library  functions  allowed  in  PARAMETER 


6.8 
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6.9  .  DATA  statement  list  and  values  don't  have  to  match  in 

number 

.  statement  labels  (&n  or  $n)  allowed  in  DATA 
.  octal  and  Fieldata  allowed  in  DATA 
.  DATA  may  appear  (almost)  anywhere 

7  .  may  have  internal  subprograms 

.  statement  label  in  calling  argument  list  is  &n,  $n  as 
well  as  *n 

.  statement  label  in  formal  argument  list  may  be  $  as  well 
as  * 

.  "EXTERNAL  name  (ACOB) "  or  (PL1)  to  indicate  the  external 
routine  is  in  COBOL  or  PL/I 

.  if  an  intrinsic  has  more  than  one  argument,  they  should 
all  be  the  same  type 

.  intrinsics:  HFIX,  IDFIX,  DFLOAT ,  DREAL,  DIMAG,  DCONJG, 

DCMPLX,  UPPERC,  LOWERC,  TRMLEN;  CDLOG,  CDEXP, 
CDSQRT ,  ARSIN,  DARSIN,  ARCOS,  DARCOS,  CDSIN, 
CDCOS,  CTAN,  CDTAN,  COTAN,  DCOTAN,  DSINH, 
CDSINH,  CBRT,  DCBRT,  CCBRT,  CDCBRT,  CCOSH, 
CDCOSH,  CTANH,  CDTANH,  CDABS,  ERF,  DERF, 

ERFC,  DERFC ,  GAMMA,  DGAMMA,  ALGAMA,  DLGAMA 

7.3.2  .  Pseudo- functions:  BITS  (extract  bits),  SBITS  (BITS  with 

sign  extension) ,  SUBSTR  (extract  substring  of  character 
string) 

7.3.3  .  System  service  routines:  DUMP,  PDUMP,  DVCHK,  OVERFL, 

UNDRFL,  OVUNFL,  UNDSET,  OVFSET, 
DIVSET,  CMLSET,  CHKSV$,  CHKRSS, 
EXIT,  LOC,  I/O  Executive 
Routine  functions,  SSWTCH  (12 
switches),  SLITE,  SLITET 

7.4  .  DEFINE  a  statement  function  (optional  word) 

.  under  some  conditions,  a  statement  function  can  appear  on 
left  side  of  “ 

.  ()  not  required  in  FUNCTION  statement  if  no  list 

7.8  .  EXTERNAL/INTRINSIC  allowed  in  BLOCK  DATA 

7.11  .  because  of  internal  subprogram,  there  are  local  and 

global  variables 
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can  INCLUDE  blocks  of  code  from  a  PDP  (Procedure 
Definition  Processor)  file 


.  can  DELETE  lines  from  a  compilation 

.  EDIT  controls  source  and  object  listing 

.  COMPILER  directives 
ARGCHK-ON  j  OFF 

BANKED* ACTARG [ ALL ! DUMARG | RETURN 

DATA- AUTO | REUSE 

LINE-IBJS 

PARMINIT-INLINE 

PROGRAM-BIG 

STD-66 

UlllO-OPT 

.  DEBUG  facility 

.  sort/merge  interface 


.  Virtual  Fortran 
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Appendix  D 

Cray  Fortran  Extensions 


The  following  are  extensions  to  ANSI  Standard  Fortran  77  in  the  Cray 
Fortran  compiler: 


Page  in 

SR-0009  Cray  extensions  to  Fortran  77 


1-1-4 

1-1-9 

1-1-10 


.  character  set  includes  lower  case  and  quotation  mark  (") 
.  variable  names  up  to  8  characters 
.  inline  comments  start  with  !  (columns  7-72  only) 

.  compiler  directives  have  CDIR$  in  columns  1~5 


1-2-1 

1-2-7 

1-2-8 

1-2-11 

1-2-12 


.  Boolean  data  and  operations 
.  . T.  and  .F.  allowed 

.  octal  data  ooooooooooooooooooooooB  (1-22  octal  digits) 

.  hex  data  X"xxxxxxxxxxxxxxxx"  (1-16  hex  digits) 

.  and  are  the  same 

.  CHARACTER  constant  1  to  1317  characters 

.  dimension  declarators  may  be  functions,  array  elements  or 
non-integer  variables  (standard  allows  only  integers) 

.  maximum  array  size  is  4,194,304  words 


1-3-9 

1-3-14 

1-3-20 


allows  double  to  complex  conversion 
logical  operator  .XOR. 
abbreviations  .N.,  .A.,  .0.,  .X. 

up  to  63  levels  of  nested  parentheses  in  an  expression 


1-4-15 


TASK  common  blocks 


2-2-3 

2-2-8 

2-2-10 

2-2-14 


2-4-3 

2-4-10 


2-4-12 

2-4-15 


.  POINTER  allows  run-time  equivalencing 
.  character  length  up  to  16,384  characters 
.  IMPLICIT  NONE 

.  labelled  common  blocks  of  same  name  may  have  different 
lengths  but  first  occurrence  defines  the  actual  length 

.  optional  statement  list  of  an  assigned  GO  TO  is  not  used 
.  DO-loop  variable  may  not  exceed  2**23— 1  (8,388,607) 

.  no  more  than  15  DO-loops  may  terminate  on  the  same 
terminal  statement 

.  maximum  DO-loop  iteration  count  is  2**23 
.  STOP  n  and  PAUSE  n  n  up  to  8  digits 

STOP  msg  and  PAUSE  msg  msg  up  to  8  characters; 

msg  is  CHARACTER  constant, 

variable,  array  element 
or  function 
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2-5-1  .  end-of-data  records 

.  can  mix  formatted  and  unformatted  records  in  a  file 
.  datasets  (multi-file  files) 

2-5-6  .  Fortran  unit  numbers  are  0-102 

.  default  unit  numbers: 

$IN  5  (changeable)  and  100  (permanent) 

$0UT  6  (changeable)  and  101  (permanent) 

$PUNCH  102  (permanent) 

2-5-8  .  "WRITE  fmt,  list" 

2-5-14  .  maximum  formatted  record  is  152  characters 

2-5-21  .  no  automatic  close  of  files  at  end~of-program 

2-5-23  .  NAMELIST  with  user  control  of  input  and  output  formats 

2-5-29  .  BUFFER  IN,  BUFFER  OUT,  UNIT,  LENGTH 

2-6-1  .  formats  may  be  nested  to  9  levels 

2-6~2  .  commas  in  formats  optional  where  meaning  is  unambiguous 

2-6-10  .  can  specify  a  repeat  count  on  "/" 

2-6-10.1  .  $  to  leave  output  line  at  end  of  terminal 

2-6-15  .  out-of-range  number  printed  as  "R" 

2-6-19  .  Ow  format 

2-6-20  .  Zw  format 

2-6-22  .  A  can  be  used  with  non-CHARACTER  data 

2-6-23  .  Rw  format  (right  justified)  (NUL-filled  on  input) 

2- 7-1  .  optional  file  list  on  PROGRAM  statement 

3- 1-21  .  compiler  directives 

EJECT 

LIST  /  NOLIST 

CODE  /  NOCODE 

VECTOR  /  NOVECTOR 

NORECURRENCE 

IVDEP 

IVDMO 

V FUNCTION 

NEXTSCALAR 

SHORTLOOP 

INT24  /  INT64 

FASTMD  /  SLOWMD 

FLOW  /  NOFLOW  and  FLOWDUMP  utility 
(like  CDC  SPY,  which  is  available) 

DYNAMIC 

BOUNDS 

9  optimization  directives:  BLOCK  /  NO  SIDE  EFFECTS  / 

ALIGN  /  NOIFCON  /  RESUMEIFCON 
/  NODOREP  /  RESUMEDOREP  /  CVL 
/  NOCVL 


DEBUG  /  NODEBUG 
ROLL  /  UNROLL 
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.  intrinsics: 

RANF,  RANGET,  RANSET,  COT,  DCOT,  INT24,  LINT,  RTC,  IRTC, 
CLOCK,  JDATE,  DATE,  AND,  OR,  XOR,  EQV,  NEQV,  COMPL, 

MASK,  SHIFT,  SHIFTL,  SHIFTR ,  LEADZ,  POPCNT,  POPPAR, 

CMSG,  CVMGP,  CVMGM,  CVMGZ,  CVMGN,  CVMGT,  NUMARG 

.  utility  subprograms 
.  time:  TIMEF,  SECOND 

.  system:  SYSTEM,  EXIT,  ABORT,  ERREXIT,  TRBK,  REMARK, 
REMARKF,  SENSEFI,  CLEARFI,  SETFI ,  CLEARFIS, 

SETFIS,  S SWITCH  (6) 

.  I/O:  EODW,  IOEF,  EOF,  UNIT,  LENGTH,  GETPOS,  SETPOS 
.  Debugging  aids:  ENDPRV ,  SETPRV,  SYMDEBUG,  DUMP JOB 

(outmoded  features) 

.  Hollerith  data  (nH...,  "..."H, 

.  2-way  arithmetic  IF 
.  indirect  logical  IF 
.  ENCODE,  DECODE 
.  asterisk  editing 
.  [-b]X  editing 

.  DOUBLE  declaration  type  statement 
.  DOUBLE  declaration  FUNCTION  statement 
.  DATA  statement  nlist/clist  logical/Hollerith 
correspondence 
.  PUNCH 

.  type  statements  with  *n 
.  random  I/O  operations 

.  DATA  statement  mixed  in  with  declaratives 
.  EOF,  IEOF,  IOSTAT  functions 

.  FTREF  utility  to  report  about  common  block  variable  usage. 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 


1.  DTNSRDC  REPORTS,  A  FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH¬ 
NICAL  VALUE.  THEY  CARRY  A  CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 


2.  DEPARTMENTAL  REPORTS.  A  SEMIFORMAL  SERIES,  CONTAIN  INFORMATION  OF  A  PRELIM¬ 
INARY,  TEMPORARY.  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A  DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 


3.  TECHNICAL  MEMORANDA.  AN  INFORMAL  SERIES,  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN¬ 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A  CASE-BY-CASE 
BASIS. 
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